home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / fake2.arc / FAKE2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-01  |  4.7 KB  |  179 lines
  1. 1  REM Central Park but used to be System Buster
  2. 2  REM By Phreak Phantom
  3. 3  REM Version 1.1    11/1/86
  4. 10  CLS:LOCATE ,,0:SCREEN 0,0,0:KEY OFF
  5. 20  COLOR 15
  6. 60  CLS:PRINT "Type Name?":INPUT B$:FOR X=1 TO 2000:NEXT X:CLS
  7. 61  PRINT "Ok " B$" , who is the fastest runner in the world?":INPUT A$:PRINT "Yeah, I don't know that on either."
  8. 62  FOR X=1 TO 2000:NEXT X:CLS
  9. 70  COLOR 20:LOCATE 1,60:PRINT "System Inactive":COLOR 2
  10. 80  FOR X=1 TO 1000:NEXT X
  11. 85  PRINT
  12. 140  CLS:COLOR 9:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,67:PRINT "Active"
  13. 141  COLOR 2:PRINT "Com1 or Com2 (1/2)?":INPUT A$
  14. 142  COLOR 1:PRINT "Smart or Dumb modem (S/D)?":INPUT A$
  15. 143  COLOR 15:PRINT "Ready?":INPUT A$
  16. 151  COLOR 7:PRINT "Enter Fone Number 1 digit at a time."
  17. 152  COLOR 2
  18. 170  PRINT "Number (1)"
  19. 180  INPUT A$
  20. 185  PRINT
  21. 190  COLOR 3:PRINT "Number (2)"
  22. 200  INPUT B$
  23. 205  PRINT
  24. 210  COLOR 7:PRINT "Number (3)"
  25. 220  INPUT C$
  26. 225  PRINT
  27. 230  COLOR 10:PRINT "Number (4)"
  28. 240  INPUT D$
  29. 245  PRINT
  30. 250  COLOR 14:PRINT "Number (5)"
  31. 260  INPUT E$
  32. 265  PRINT
  33. 270  COLOR 4:PRINT "Number (6)"
  34. 280  INPUT F$
  35. 285  PRINT
  36. 290  COLOR 5:PRINT "Number (7)"
  37. 300  INPUT G$
  38. 305  PRINT
  39. 310  CLS:COLOR 9:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,67:PRINT "Active"
  40. 320  COLOR 20:PRINT A$ B$ C$"-"D$ E$ F$ G$
  41. 330  COLOR 1:PRINT "Is this right?"
  42. 340  INPUT DF$
  43. 350  PRINT "Ok, get ready to bust!!"
  44. 360  FOR X=1 TO 1500:NEXT X
  45. 370  CLS:COLOR 6:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,68:PRINT "Active"
  46. 380  PRINT "=========="
  47. 390  PRINT "="A$ B$ C$"-"D$ E$ F$ G$"="
  48. 400  PRINT "=========="
  49. 410  COLOR 7
  50. 415  LOCATE 7,1:PRINT "Dialing. . . ."
  51. 420  COLOR 11:FOR X=1 TO 4555:NEXT X
  52. 425  LOCATE 10,1:PRINT A$
  53. 430  FOR X=1 TO 850:NEXT X
  54. 440  COLOR 3:LOCATE 10,3:PRINT B$
  55. 450  FOR X=1 TO 850:NEXT X
  56. 460  COLOR 6:LOCATE 10,5:PRINT C$"-"
  57. 465  FOR X=1 TO 850:NEXT X
  58. 470  COLOR 10:LOCATE 10,7:PRINT D$
  59. 480  FOR X=1 TO 850:NEXT X
  60. 490  COLOR 4:LOCATE 10,9:PRINT E$
  61. 495  FOR X=1 TO 850:NEXT X
  62. 500  COLOR 14:LOCATE 10,11:PRINT F$
  63. 505  FOR X=1 TO 850:NEXT X
  64. 510  COLOR 13:LOCATE 10,13:PRINT G$
  65. 520  FOR X=1 TO 2500:NEXT X
  66. 521  M$="t100o3L4ccL6cL16dL4eL16dL6eL16fL2go4L12ccc03gggeeecccL8fedL2c":PLAY M$
  67. 525  COLOR 9:LOCATE 7,1:PRINT "Dialing complete, proceeding to main stage."
  68. 535  FOR X=1 TO 2900:NEXT X
  69. 540  CLS:COLOR 6:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,68:PRINT "Connected":COLOR 9
  70. 550  LOCATE 1,1:PRINT A$ B$ C$"-"D$ E$ F$ G$
  71. 560  COLOR 10:LOCATE 2,1:PRINT "Connected......."
  72. 561  FOR X=1 TO 4000:NEXT X
  73. 562  PRINT "Operating at 1200 baud.":FOR X=1 TO 3000:NEXT X:PRINT "Simple asd@#$24 code system":FOR X=1 TO 4000:NEXT X
  74. 571  COLOR 4:PRINT "Tying random code search":FOR X=1 TO 8000:NEXT X
  75. 572  COLOR 2:PRINT "First string Found":FOR X=1 TO 4:PRINT XX:NEXT X:FOR D=1 TO 6000:NEXT D
  76. 573  COLOR 6:PRINT "Starting second string , please wait.":FOR X=1 TO 9000:NEXT X
  77. 574  COLOR 3:PRINT "String not Found.":FOR X=1 TO 7000:NEXT X
  78. 575  COLOR 4:PRINT "Begining Smashing PROCESS.":FOR X=1 TO 8000:NEXT X
  79. 580  LOCATE 16,30:PRINT "SMASHING process begining in...."
  80. 590  LOCATE 16,61:PRINT "20"
  81. 591  FOR X=1 TO  700:NEXT X
  82. 592  LOCATE 16,61:PRINT "19"
  83. 593  FOR X=1 TO  700:NEXT X
  84. 594  LOCATE 16,61:PRINT "18"
  85. 595  FOR X=1 TO  700:NEXT X
  86. 596  LOCATE 16,61:PRINT "17"
  87. 597  FOR X=1 TO  700:NEXT X
  88. 598  LOCATE 16,61:PRINT "16"
  89. 599  FOR X=1 TO  700:NEXT X
  90. 610  LOCATE 16,61:PRINT "15"
  91. 611  FOR X=1 TO  700:NEXT X
  92. 612  LOCATE 16,61:PRINT "14"
  93. 613  FOR X=1 TO  700:NEXT X
  94. 614  LOCATE 16,61:PRINT "13"
  95. 615  FOR X=1 TO  700:NEXT X
  96. 616  LOCATE 16,61:PRINT "12"
  97. 617  FOR X=1 TO  700:NEXT X
  98. 618  LOCATE 16,61:PRINT "11"
  99. 619  FOR X=1 TO  700:NEXT X
  100. 620  LOCATE 16,61:PRINT "10"
  101. 621  FOR X=1 TO 700:NEXT X
  102. 622  LOCATE 16,61:PRINT "09"
  103. 623  FOR X=1 TO 700:NEXT X
  104. 624  LOCATE 16,61:PRINT "08"
  105. 625  FOR X=1 TO 700:NEXT X
  106. 650  LOCATE 16,61:PRINT "07"
  107. 660  FOR X=1 TO  700:NEXT X
  108. 670  LOCATE 16,61:PRINT "06"
  109. 680  FOR X=1 TO  700:NEXT X
  110. 690  LOCATE 16,61:PRINT "05"
  111. 700  FOR X=1 TO  700:NEXT X
  112. 710  LOCATE 16,61:PRINT "04"
  113. 720  FOR X=1 TO  700:NEXT X
  114. 730  LOCATE 16,61:PRINT "03"
  115. 740  FOR X=1 TO  700:NEXT X
  116. 750  LOCATE 16,61:PRINT "02"
  117. 760  FOR X=1 TO  700:NEXT X
  118. 770  LOCATE 16,61:PRINT "01"
  119. 780  FOR X=1 TO  700:NEXT X
  120. 785  LOCATE 16,61:PRINT "00"
  121. 790  FOR X=1 TO 1000:NEXT X
  122. 800  LOCATE 16,30:PRINT "Process is completed, go ahead          "
  123. 805  FOR X=1 TO 1000:NEXT X
  124. 810  CLS
  125. 820  INPUT A$
  126. 830  PRINT "This system doesn't support that function":PRINT " 700000 min left"
  127. 840  INPUT A$
  128. 850  PRINT "Cannot "A$""
  129. 860  INPUT A$
  130. 870  PRINT "System Interupted by Sysop"
  131. 880  INPUT A$
  132. 890  PRINT "Sysop online: Sysop wants to chat"
  133. 900  INPUT A$
  134. 910  PRINT "Sysop forcing chat to user #39282615a"
  135. 920  INPUT A$
  136. 930  PRINT "HEY! IDENTIFY YOURSELF!!!!"
  137. 931  INPUT A$
  138. 932  PRINT "Look,don't you know that hacking is illegal!"
  139. 933  INPUT A$
  140. 934  PRINT "Don't use that type of language!"
  141. 935  INPUT A$
  142. 936  PRINT "Ok, tracing call................"
  143. 940  INPUT A$
  144. 950  PRINT "Ok"
  145. 955  FOR X=1 TO 3000:NEXT X
  146. 960  COLOR 2:PRINT "Trap/Trace signal being received."
  147. 970  COLOR 20:PRINT "Danger!"
  148. 980  FOR X=1 TO 3000:NEXT X
  149. 990  COLOR 8:PRINT "Shall I terminate Connection?"
  150. 1000  INPUT ZXA$
  151. 1100  PRINT
  152. 1200  PRINT
  153. 1300  PRINT
  154. 1400  PRINT
  155. 1500  COLOR 20:PRINT "Trap complete! Danger!"
  156. 1600  FOR X=1 TO 4500:NEXT X
  157. 1700  COLOR 2:PRINT "Foil Trace signal beging sent to fool TRACE."
  158. 1800  FOR X=1 TO 4500:NEXT X
  159. 1900  COLOR 20:PRINT "Trace beginging! Danger!
  160. 2000  FOR X=1 TO 4500:NEXT X
  161. 2100  COLOR 2:PRINT "Sending dummy trace signal."
  162. 2200  COLOR 20:PRINT "Danger!"
  163. 2300  FOR X=1 TO 4500:NEXT X
  164. 2500  COLOR 2:PRINT "Danger, cannot sent hang up signal to modem!"
  165. 2600  COLOR 20:PRINT "Danger!"
  166. 2700  FOR X=1 TO 4500:NEXT X
  167. 2701  PRINT "Hope your wearing anti-persperent":FOR X=1 TO 3000:NEXT X
  168. 2702  COLOR 20:PRINT "<HIT> Alt-H to send a 3000 mhz down the line."
  169. 2703  IF INKEY$="" THEN 2703
  170. 2704  PRINT "Fried em'":FOR X=1 TO 6000:NEXT X
  171. 2800  COLOR 2:PRINT "Sysop message:I'll get you next time!!!!!"
  172. 2810  COLOR 20:PRINT "Sending proper response..."
  173. 2820  FOR D=1 TO 6000:NEXT D:COLOR 6:PRINT "Roses are red, violets are blue, I'am the best hacker and you are through!"
  174. 2830  FOR X=1 TO 6000:NEXT X
  175. 2900  COLOR 2:PRINT "That was a close one, that makes the 36 one. "
  176. 3000  PRINT "Redial Same #?":INPUT A$
  177. 3100  IF A$="y" THEN 3200 ELSE CLS:PRINT "See ya later, this is HACK 101 signing off.":FOR X=1 TO 3000:NEXT X:END
  178. 3200  RUN"fake3
  179.